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DBD NAME=IVPDB1,ACCESS=(HIDAM,0SAM) 
DIR DD1=DFSIVD1,SIZE=2048, UOW=(500,50,10) 




DATASET DD1=DFSIVD1A,DEVICE=3380,SIZE=2048 

SEGM NAME=A1 111111 ,PARENT=0, BYTES=40,RU LES=(LLV,LAST),PTR=(TB, CTR) 

FIELD NAMEKA1111111,SEQ,U),BYTES=010,START=00001,TYPE=C 

FIELD NAME=A9999999,BYTES=010,START=00011,TYPE=C 

LCHILD NAME=(A1 JVPDB1 l),POINTER=INDX,RULES=LAST 

LCHILD NAME=(A1X,IVPDB1X),POINTER=INDX 

XDFLD NAME=AXXXXXXX,SEGMENT=A1111111 ( SRCH=(A9999999) 

LCHILD NAME=(C1X, IVPDBIZ),POINTER=INDX 

XDFLD NAME=CXXXXXXX,SEGMENT=C1 1 1 1 11 1 ,SRCH=(C9999999) 

DATASET DD1=DFSIVD1B,DEVICE=3380,SIZE=4096 

SEGM NAME=B1111 11 1,PARENT=A1 1111 11 ,BYTES=(1 000,50), X 

RULES=(LLV,LAST),PTR=(TB) 
FIELD NAME=(B1111111,SEQ I M),BYTES=010 J START=00003,TYPE=C 
FIELD NAME=/SXB1 

LCH I LD N AME=(B 1 X, I VPDB 1 Y), PC INTER= IN DX 

XDFLD ..NAME=BXXXXXXX,SEGMENT=B111 111 1,SRCH=(B11 1111 1),SUBSEQ=(/SXB1) 
DATASET DD1=DFSIVD1C,DEVICE=3380,SIZE=8192 

SEGM NAME=C1111111,PARENT=B1111111,COMPRTN=(DFSKMPXO,DATA,INIT), X 

RULES=(LLV ) LAST),PTR=(TB),BYTES=(8000,50) 
FIELD NAME=(C1111111,SEQ,U),BYTES=010,START=00003,TYPE=C 
FIELD NAME=C9999999,BYTES=010,START=00011,TYPE=C 

DIRGEN 

DBDGEN 

FINISH 

END 
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DBD NAME=IVPDB2,ACCESS=HDAM,RMNAME=(DFSHDC40 ) 4,1000) 



DIR DD1=DFSIVD2,UOW=(100,10) 

DATASET DD1=DFSIVD2A,DEVICE=3380,SIZE=2048 

SEGM NAME=A1 111111, PARENT=0, BYTES=40,RULES=(LLL,LAST), 

COMPRTN=(DFSKMPX0,DATA,INIT) 
FIELD NAME=(A1111111,SEQ,U),BYTES=010 > START=00001,TYPE=C 

DATASET DD1=DFSIVD2B,DEVICE=3380,SIZE=4096 

SEGM NAME=B 1111111 ,PARENT=A1 111111, BYTES=(1 000,50), 

RULES=(LLV,LAST),PTR=(TB) 
FIELD NAME=(B1111111,SEQ > U),BYTES=010,START=00003,TYPE=C 

DATASET DD1=DFSIVD2C,DEVICE=3380,SIZE=8192 

SEGM NAME=C1111111,PARENT=B1111111,COMPRTN=(DFSKMPXO, 

RULES=(LLV,LAST),PTR=TB,BYTES=8000 
FIELD N AME=(C1 1 11111 ,SEQ,U), BYTES=01 0,START=00001 ,TYPE=C 

DIRGEN 

DBDGEN 

FINISH 

END 
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IMS extracts secondary index key 
from A/P's Read request 



IMS extracts Index Record from 
secondary index dataset with 
A/P's requested key 



IMS extracts Direct Pointer from Index 
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Invention software extracts Token 
From Secondary Index record 



Extracts Root Segments RBA 
And Target Segment's 
Born-On-Date from Token 



Requests IMS to read Root Segment 
In Target Database using 
Provided RBA 



Follow hierarchical pointers 
Within the Root Segment 
Searching for a Target Segment 
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